From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 25 Jul 2004 17:35:04 +0000 (+0000)
Subject: (check_cons_list): New function (contents commented out).
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~21537
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=20012374125ffb5325d1dddb876e14074c4e36ff;p=emacs.git

(check_cons_list): New function (contents commented out).
---

diff --git a/src/alloc.c b/src/alloc.c
index 5c2a6fb48c3..ece150f083c 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -2395,6 +2395,17 @@ DEFUN ("cons", Fcons, Scons, 2, 2, 0,
   return val;
 }
 
+/* Get an error now if there's any junk in the cons free list.  */
+void
+check_cons_list ()
+{
+  struct Lisp_Cons *tail = cons_free_list;
+
+#if 0
+  while (tail)
+    tail = *(struct Lisp_Cons **)&tail->cdr;
+#endif
+}
 
 /* Make a list of 2, 3, 4 or 5 specified objects.  */